home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Programming / gcc-2.95.3-3 / info / g77.info-8 < prev    next >
Encoding:
GNU Info File  |  2001-07-15  |  50.3 KB  |  2,024 lines
  1. This is Info file f/g77.info, produced by Makeinfo version 1.68 from
  2. the input file ./f/g77.texi.
  3.  
  4. INFO-DIR-SECTION Programming
  5. START-INFO-DIR-ENTRY
  6. * g77: (g77).                  The GNU Fortran compiler.
  7. END-INFO-DIR-ENTRY
  8.    This file documents the use and the internals of the GNU Fortran
  9. (`g77') compiler.  It corresponds to the GCC-2.95 version of `g77'.
  10.  
  11.    Published by the Free Software Foundation 59 Temple Place - Suite 330
  12. Boston, MA 02111-1307 USA
  13.  
  14.    Copyright (C) 1995-1999 Free Software Foundation, Inc.
  15.  
  16.    Permission is granted to make and distribute verbatim copies of this
  17. manual provided the copyright notice and this permission notice are
  18. preserved on all copies.
  19.  
  20.    Permission is granted to copy and distribute modified versions of
  21. this manual under the conditions for verbatim copying, provided also
  22. that the sections entitled "GNU General Public License," "Funding for
  23. Free Software," and "Protect Your Freedom--Fight `Look And Feel'" are
  24. included exactly as in the original, and provided that the entire
  25. resulting derived work is distributed under the terms of a permission
  26. notice identical to this one.
  27.  
  28.    Permission is granted to copy and distribute translations of this
  29. manual into another language, under the above conditions for modified
  30. versions, except that the sections entitled "GNU General Public
  31. License," "Funding for Free Software," and "Protect Your Freedom--Fight
  32. `Look And Feel'", and this permission notice, may be included in
  33. translations approved by the Free Software Foundation instead of in the
  34. original English.
  35.  
  36.    Contributed by James Craig Burley (<craig@jcb-sc.com>).  Inspired by
  37. a first pass at translating `g77-0.5.16/f/DOC' that was contributed to
  38. Craig by David Ronis (<ronis@onsager.chem.mcgill.ca>).
  39.  
  40. 
  41. File: g77.info,  Node: Date_and_Time Intrinsic,  Next: DbesJ0 Intrinsic,  Prev: DATan2 Intrinsic,  Up: Table of Intrinsic Functions
  42.  
  43. Date_and_Time Intrinsic
  44. .......................
  45.  
  46.      CALL Date_and_Time(DATE, TIME, ZONE, VALUES)
  47.  
  48. DATE: `CHARACTER'; scalar; INTENT(OUT).
  49.  
  50. TIME: `CHARACTER'; OPTIONAL; scalar; INTENT(OUT).
  51.  
  52. ZONE: `CHARACTER'; OPTIONAL; scalar; INTENT(OUT).
  53.  
  54. VALUES: `INTEGER(KIND=1)'; OPTIONAL; DIMENSION(8); INTENT(OUT).
  55.  
  56. Intrinsic groups: `f90'.
  57.  
  58. Description:
  59.  
  60.    Returns:
  61. DATE
  62.      The date in the form CCYYMMDD: century, year, month and day;
  63.  
  64. TIME
  65.      The time in the form `HHMMSS.SS': hours, minutes, seconds and
  66.      milliseconds;
  67.  
  68. ZONE
  69.      The difference between local time and UTC (GMT) in the form SHHMM:
  70.      sign, hours and minutes, e.g. `-0500' (winter in New York);
  71.  
  72. VALUES
  73.      The year, month of the year, day of the month, time difference in
  74.      minutes from UTC, hour of the day, minutes of the hour, seconds of
  75.      the minute, and milliseconds of the second in successive values of
  76.      the array.
  77.  
  78.    Programs making use of this intrinsic might not be Year 10000 (Y10K)
  79. compliant.  For example, the date might appear, to such programs, to
  80. wrap around (change from a larger value to a smaller one) as of the
  81. Year 10000.
  82.  
  83.    On systems where a millisecond timer isn't available, the millisecond
  84. value is returned as zero.
  85.  
  86. 
  87. File: g77.info,  Node: DbesJ0 Intrinsic,  Next: DbesJ1 Intrinsic,  Prev: Date_and_Time Intrinsic,  Up: Table of Intrinsic Functions
  88.  
  89. DbesJ0 Intrinsic
  90. ................
  91.  
  92.      DbesJ0(X)
  93.  
  94. DbesJ0: `REAL(KIND=2)' function.
  95.  
  96. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  97.  
  98. Intrinsic groups: `unix'.
  99.  
  100. Description:
  101.  
  102.    Archaic form of `BESJ0()' that is specific to one type for X.  *Note
  103. BesJ0 Intrinsic::.
  104.  
  105. 
  106. File: g77.info,  Node: DbesJ1 Intrinsic,  Next: DbesJN Intrinsic,  Prev: DbesJ0 Intrinsic,  Up: Table of Intrinsic Functions
  107.  
  108. DbesJ1 Intrinsic
  109. ................
  110.  
  111.      DbesJ1(X)
  112.  
  113. DbesJ1: `REAL(KIND=2)' function.
  114.  
  115. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  116.  
  117. Intrinsic groups: `unix'.
  118.  
  119. Description:
  120.  
  121.    Archaic form of `BESJ1()' that is specific to one type for X.  *Note
  122. BesJ1 Intrinsic::.
  123.  
  124. 
  125. File: g77.info,  Node: DbesJN Intrinsic,  Next: DbesY0 Intrinsic,  Prev: DbesJ1 Intrinsic,  Up: Table of Intrinsic Functions
  126.  
  127. DbesJN Intrinsic
  128. ................
  129.  
  130.      DbesJN(N, X)
  131.  
  132. DbesJN: `REAL(KIND=2)' function.
  133.  
  134. N: `INTEGER'; scalar; INTENT(IN).
  135.  
  136. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  137.  
  138. Intrinsic groups: `unix'.
  139.  
  140. Description:
  141.  
  142.    Archaic form of `BESJN()' that is specific to one type for X.  *Note
  143. BesJN Intrinsic::.
  144.  
  145. 
  146. File: g77.info,  Node: DbesY0 Intrinsic,  Next: DbesY1 Intrinsic,  Prev: DbesJN Intrinsic,  Up: Table of Intrinsic Functions
  147.  
  148. DbesY0 Intrinsic
  149. ................
  150.  
  151.      DbesY0(X)
  152.  
  153. DbesY0: `REAL(KIND=2)' function.
  154.  
  155. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  156.  
  157. Intrinsic groups: `unix'.
  158.  
  159. Description:
  160.  
  161.    Archaic form of `BESY0()' that is specific to one type for X.  *Note
  162. BesY0 Intrinsic::.
  163.  
  164. 
  165. File: g77.info,  Node: DbesY1 Intrinsic,  Next: DbesYN Intrinsic,  Prev: DbesY0 Intrinsic,  Up: Table of Intrinsic Functions
  166.  
  167. DbesY1 Intrinsic
  168. ................
  169.  
  170.      DbesY1(X)
  171.  
  172. DbesY1: `REAL(KIND=2)' function.
  173.  
  174. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  175.  
  176. Intrinsic groups: `unix'.
  177.  
  178. Description:
  179.  
  180.    Archaic form of `BESY1()' that is specific to one type for X.  *Note
  181. BesY1 Intrinsic::.
  182.  
  183. 
  184. File: g77.info,  Node: DbesYN Intrinsic,  Next: Dble Intrinsic,  Prev: DbesY1 Intrinsic,  Up: Table of Intrinsic Functions
  185.  
  186. DbesYN Intrinsic
  187. ................
  188.  
  189.      DbesYN(N, X)
  190.  
  191. DbesYN: `REAL(KIND=2)' function.
  192.  
  193. N: `INTEGER'; scalar; INTENT(IN).
  194.  
  195. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  196.  
  197. Intrinsic groups: `unix'.
  198.  
  199. Description:
  200.  
  201.    Archaic form of `BESYN()' that is specific to one type for X.  *Note
  202. BesYN Intrinsic::.
  203.  
  204. 
  205. File: g77.info,  Node: Dble Intrinsic,  Next: DCos Intrinsic,  Prev: DbesYN Intrinsic,  Up: Table of Intrinsic Functions
  206.  
  207. Dble Intrinsic
  208. ..............
  209.  
  210.      Dble(A)
  211.  
  212. Dble: `REAL(KIND=2)' function.
  213.  
  214. A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
  215.  
  216. Intrinsic groups: (standard FORTRAN 77).
  217.  
  218. Description:
  219.  
  220.    Returns A converted to double precision (`REAL(KIND=2)').  If A is
  221. `COMPLEX', the real part of A is used for the conversion and the
  222. imaginary part disregarded.
  223.  
  224.    *Note Sngl Intrinsic::, for the function that converts to single
  225. precision.
  226.  
  227.    *Note Int Intrinsic::, for the function that converts to `INTEGER'.
  228.  
  229.    *Note Complex Intrinsic::, for the function that converts to
  230. `COMPLEX'.
  231.  
  232. 
  233. File: g77.info,  Node: DCos Intrinsic,  Next: DCosH Intrinsic,  Prev: Dble Intrinsic,  Up: Table of Intrinsic Functions
  234.  
  235. DCos Intrinsic
  236. ..............
  237.  
  238.      DCos(X)
  239.  
  240. DCos: `REAL(KIND=2)' function.
  241.  
  242. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  243.  
  244. Intrinsic groups: (standard FORTRAN 77).
  245.  
  246. Description:
  247.  
  248.    Archaic form of `COS()' that is specific to one type for X.  *Note
  249. Cos Intrinsic::.
  250.  
  251. 
  252. File: g77.info,  Node: DCosH Intrinsic,  Next: DDiM Intrinsic,  Prev: DCos Intrinsic,  Up: Table of Intrinsic Functions
  253.  
  254. DCosH Intrinsic
  255. ...............
  256.  
  257.      DCosH(X)
  258.  
  259. DCosH: `REAL(KIND=2)' function.
  260.  
  261. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  262.  
  263. Intrinsic groups: (standard FORTRAN 77).
  264.  
  265. Description:
  266.  
  267.    Archaic form of `COSH()' that is specific to one type for X.  *Note
  268. CosH Intrinsic::.
  269.  
  270. 
  271. File: g77.info,  Node: DDiM Intrinsic,  Next: DErF Intrinsic,  Prev: DCosH Intrinsic,  Up: Table of Intrinsic Functions
  272.  
  273. DDiM Intrinsic
  274. ..............
  275.  
  276.      DDiM(X, Y)
  277.  
  278. DDiM: `REAL(KIND=2)' function.
  279.  
  280. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  281.  
  282. Y: `REAL(KIND=2)'; scalar; INTENT(IN).
  283.  
  284. Intrinsic groups: (standard FORTRAN 77).
  285.  
  286. Description:
  287.  
  288.    Archaic form of `DIM()' that is specific to one type for X and Y.
  289. *Note DiM Intrinsic::.
  290.  
  291. 
  292. File: g77.info,  Node: DErF Intrinsic,  Next: DErFC Intrinsic,  Prev: DDiM Intrinsic,  Up: Table of Intrinsic Functions
  293.  
  294. DErF Intrinsic
  295. ..............
  296.  
  297.      DErF(X)
  298.  
  299. DErF: `REAL(KIND=2)' function.
  300.  
  301. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  302.  
  303. Intrinsic groups: `unix'.
  304.  
  305. Description:
  306.  
  307.    Archaic form of `ERF()' that is specific to one type for X.  *Note
  308. ErF Intrinsic::.
  309.  
  310. 
  311. File: g77.info,  Node: DErFC Intrinsic,  Next: DExp Intrinsic,  Prev: DErF Intrinsic,  Up: Table of Intrinsic Functions
  312.  
  313. DErFC Intrinsic
  314. ...............
  315.  
  316.      DErFC(X)
  317.  
  318. DErFC: `REAL(KIND=2)' function.
  319.  
  320. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  321.  
  322. Intrinsic groups: `unix'.
  323.  
  324. Description:
  325.  
  326.    Archaic form of `ERFC()' that is specific to one type for X.  *Note
  327. ErFC Intrinsic::.
  328.  
  329. 
  330. File: g77.info,  Node: DExp Intrinsic,  Next: Digits Intrinsic,  Prev: DErFC Intrinsic,  Up: Table of Intrinsic Functions
  331.  
  332. DExp Intrinsic
  333. ..............
  334.  
  335.      DExp(X)
  336.  
  337. DExp: `REAL(KIND=2)' function.
  338.  
  339. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  340.  
  341. Intrinsic groups: (standard FORTRAN 77).
  342.  
  343. Description:
  344.  
  345.    Archaic form of `EXP()' that is specific to one type for X.  *Note
  346. Exp Intrinsic::.
  347.  
  348. 
  349. File: g77.info,  Node: Digits Intrinsic,  Next: DiM Intrinsic,  Prev: DExp Intrinsic,  Up: Table of Intrinsic Functions
  350.  
  351. Digits Intrinsic
  352. ................
  353.  
  354.    This intrinsic is not yet implemented.  The name is, however,
  355. reserved as an intrinsic.  Use `EXTERNAL Digits' to use this name for an
  356. external procedure.
  357.  
  358. 
  359. File: g77.info,  Node: DiM Intrinsic,  Next: DInt Intrinsic,  Prev: Digits Intrinsic,  Up: Table of Intrinsic Functions
  360.  
  361. DiM Intrinsic
  362. .............
  363.  
  364.      DiM(X, Y)
  365.  
  366. DiM: `INTEGER' or `REAL' function, the exact type being the result of
  367. cross-promoting the types of all the arguments.
  368.  
  369. X: `INTEGER' or `REAL'; scalar; INTENT(IN).
  370.  
  371. Y: `INTEGER' or `REAL'; scalar; INTENT(IN).
  372.  
  373. Intrinsic groups: (standard FORTRAN 77).
  374.  
  375. Description:
  376.  
  377.    Returns `X-Y' if X is greater than Y; otherwise returns zero.
  378.  
  379. 
  380. File: g77.info,  Node: DInt Intrinsic,  Next: DLog Intrinsic,  Prev: DiM Intrinsic,  Up: Table of Intrinsic Functions
  381.  
  382. DInt Intrinsic
  383. ..............
  384.  
  385.      DInt(A)
  386.  
  387. DInt: `REAL(KIND=2)' function.
  388.  
  389. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  390.  
  391. Intrinsic groups: (standard FORTRAN 77).
  392.  
  393. Description:
  394.  
  395.    Archaic form of `AINT()' that is specific to one type for A.  *Note
  396. AInt Intrinsic::.
  397.  
  398. 
  399. File: g77.info,  Node: DLog Intrinsic,  Next: DLog10 Intrinsic,  Prev: DInt Intrinsic,  Up: Table of Intrinsic Functions
  400.  
  401. DLog Intrinsic
  402. ..............
  403.  
  404.      DLog(X)
  405.  
  406. DLog: `REAL(KIND=2)' function.
  407.  
  408. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  409.  
  410. Intrinsic groups: (standard FORTRAN 77).
  411.  
  412. Description:
  413.  
  414.    Archaic form of `LOG()' that is specific to one type for X.  *Note
  415. Log Intrinsic::.
  416.  
  417. 
  418. File: g77.info,  Node: DLog10 Intrinsic,  Next: DMax1 Intrinsic,  Prev: DLog Intrinsic,  Up: Table of Intrinsic Functions
  419.  
  420. DLog10 Intrinsic
  421. ................
  422.  
  423.      DLog10(X)
  424.  
  425. DLog10: `REAL(KIND=2)' function.
  426.  
  427. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  428.  
  429. Intrinsic groups: (standard FORTRAN 77).
  430.  
  431. Description:
  432.  
  433.    Archaic form of `LOG10()' that is specific to one type for X.  *Note
  434. Log10 Intrinsic::.
  435.  
  436. 
  437. File: g77.info,  Node: DMax1 Intrinsic,  Next: DMin1 Intrinsic,  Prev: DLog10 Intrinsic,  Up: Table of Intrinsic Functions
  438.  
  439. DMax1 Intrinsic
  440. ...............
  441.  
  442.      DMax1(A-1, A-2, ..., A-n)
  443.  
  444. DMax1: `REAL(KIND=2)' function.
  445.  
  446. A: `REAL(KIND=2)'; at least two such arguments must be provided;
  447. scalar; INTENT(IN).
  448.  
  449. Intrinsic groups: (standard FORTRAN 77).
  450.  
  451. Description:
  452.  
  453.    Archaic form of `MAX()' that is specific to one type for A.  *Note
  454. Max Intrinsic::.
  455.  
  456. 
  457. File: g77.info,  Node: DMin1 Intrinsic,  Next: DMod Intrinsic,  Prev: DMax1 Intrinsic,  Up: Table of Intrinsic Functions
  458.  
  459. DMin1 Intrinsic
  460. ...............
  461.  
  462.      DMin1(A-1, A-2, ..., A-n)
  463.  
  464. DMin1: `REAL(KIND=2)' function.
  465.  
  466. A: `REAL(KIND=2)'; at least two such arguments must be provided;
  467. scalar; INTENT(IN).
  468.  
  469. Intrinsic groups: (standard FORTRAN 77).
  470.  
  471. Description:
  472.  
  473.    Archaic form of `MIN()' that is specific to one type for A.  *Note
  474. Min Intrinsic::.
  475.  
  476. 
  477. File: g77.info,  Node: DMod Intrinsic,  Next: DNInt Intrinsic,  Prev: DMin1 Intrinsic,  Up: Table of Intrinsic Functions
  478.  
  479. DMod Intrinsic
  480. ..............
  481.  
  482.      DMod(A, P)
  483.  
  484. DMod: `REAL(KIND=2)' function.
  485.  
  486. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  487.  
  488. P: `REAL(KIND=2)'; scalar; INTENT(IN).
  489.  
  490. Intrinsic groups: (standard FORTRAN 77).
  491.  
  492. Description:
  493.  
  494.    Archaic form of `MOD()' that is specific to one type for A.  *Note
  495. Mod Intrinsic::.
  496.  
  497. 
  498. File: g77.info,  Node: DNInt Intrinsic,  Next: Dot_Product Intrinsic,  Prev: DMod Intrinsic,  Up: Table of Intrinsic Functions
  499.  
  500. DNInt Intrinsic
  501. ...............
  502.  
  503.      DNInt(A)
  504.  
  505. DNInt: `REAL(KIND=2)' function.
  506.  
  507. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  508.  
  509. Intrinsic groups: (standard FORTRAN 77).
  510.  
  511. Description:
  512.  
  513.    Archaic form of `ANINT()' that is specific to one type for A.  *Note
  514. ANInt Intrinsic::.
  515.  
  516. 
  517. File: g77.info,  Node: Dot_Product Intrinsic,  Next: DProd Intrinsic,  Prev: DNInt Intrinsic,  Up: Table of Intrinsic Functions
  518.  
  519. Dot_Product Intrinsic
  520. .....................
  521.  
  522.    This intrinsic is not yet implemented.  The name is, however,
  523. reserved as an intrinsic.  Use `EXTERNAL Dot_Product' to use this name
  524. for an external procedure.
  525.  
  526. 
  527. File: g77.info,  Node: DProd Intrinsic,  Next: DSign Intrinsic,  Prev: Dot_Product Intrinsic,  Up: Table of Intrinsic Functions
  528.  
  529. DProd Intrinsic
  530. ...............
  531.  
  532.      DProd(X, Y)
  533.  
  534. DProd: `REAL(KIND=2)' function.
  535.  
  536. X: `REAL(KIND=1)'; scalar; INTENT(IN).
  537.  
  538. Y: `REAL(KIND=1)'; scalar; INTENT(IN).
  539.  
  540. Intrinsic groups: (standard FORTRAN 77).
  541.  
  542. Description:
  543.  
  544.    Returns `DBLE(X)*DBLE(Y)'.
  545.  
  546. 
  547. File: g77.info,  Node: DSign Intrinsic,  Next: DSin Intrinsic,  Prev: DProd Intrinsic,  Up: Table of Intrinsic Functions
  548.  
  549. DSign Intrinsic
  550. ...............
  551.  
  552.      DSign(A, B)
  553.  
  554. DSign: `REAL(KIND=2)' function.
  555.  
  556. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  557.  
  558. B: `REAL(KIND=2)'; scalar; INTENT(IN).
  559.  
  560. Intrinsic groups: (standard FORTRAN 77).
  561.  
  562. Description:
  563.  
  564.    Archaic form of `SIGN()' that is specific to one type for A and B.
  565. *Note Sign Intrinsic::.
  566.  
  567. 
  568. File: g77.info,  Node: DSin Intrinsic,  Next: DSinH Intrinsic,  Prev: DSign Intrinsic,  Up: Table of Intrinsic Functions
  569.  
  570. DSin Intrinsic
  571. ..............
  572.  
  573.      DSin(X)
  574.  
  575. DSin: `REAL(KIND=2)' function.
  576.  
  577. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  578.  
  579. Intrinsic groups: (standard FORTRAN 77).
  580.  
  581. Description:
  582.  
  583.    Archaic form of `SIN()' that is specific to one type for X.  *Note
  584. Sin Intrinsic::.
  585.  
  586. 
  587. File: g77.info,  Node: DSinH Intrinsic,  Next: DSqRt Intrinsic,  Prev: DSin Intrinsic,  Up: Table of Intrinsic Functions
  588.  
  589. DSinH Intrinsic
  590. ...............
  591.  
  592.      DSinH(X)
  593.  
  594. DSinH: `REAL(KIND=2)' function.
  595.  
  596. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  597.  
  598. Intrinsic groups: (standard FORTRAN 77).
  599.  
  600. Description:
  601.  
  602.    Archaic form of `SINH()' that is specific to one type for X.  *Note
  603. SinH Intrinsic::.
  604.  
  605. 
  606. File: g77.info,  Node: DSqRt Intrinsic,  Next: DTan Intrinsic,  Prev: DSinH Intrinsic,  Up: Table of Intrinsic Functions
  607.  
  608. DSqRt Intrinsic
  609. ...............
  610.  
  611.      DSqRt(X)
  612.  
  613. DSqRt: `REAL(KIND=2)' function.
  614.  
  615. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  616.  
  617. Intrinsic groups: (standard FORTRAN 77).
  618.  
  619. Description:
  620.  
  621.    Archaic form of `SQRT()' that is specific to one type for X.  *Note
  622. SqRt Intrinsic::.
  623.  
  624. 
  625. File: g77.info,  Node: DTan Intrinsic,  Next: DTanH Intrinsic,  Prev: DSqRt Intrinsic,  Up: Table of Intrinsic Functions
  626.  
  627. DTan Intrinsic
  628. ..............
  629.  
  630.      DTan(X)
  631.  
  632. DTan: `REAL(KIND=2)' function.
  633.  
  634. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  635.  
  636. Intrinsic groups: (standard FORTRAN 77).
  637.  
  638. Description:
  639.  
  640.    Archaic form of `TAN()' that is specific to one type for X.  *Note
  641. Tan Intrinsic::.
  642.  
  643. 
  644. File: g77.info,  Node: DTanH Intrinsic,  Next: DTime Intrinsic (subroutine),  Prev: DTan Intrinsic,  Up: Table of Intrinsic Functions
  645.  
  646. DTanH Intrinsic
  647. ...............
  648.  
  649.      DTanH(X)
  650.  
  651. DTanH: `REAL(KIND=2)' function.
  652.  
  653. X: `REAL(KIND=2)'; scalar; INTENT(IN).
  654.  
  655. Intrinsic groups: (standard FORTRAN 77).
  656.  
  657. Description:
  658.  
  659.    Archaic form of `TANH()' that is specific to one type for X.  *Note
  660. TanH Intrinsic::.
  661.  
  662. 
  663. File: g77.info,  Node: DTime Intrinsic (subroutine),  Next: EOShift Intrinsic,  Prev: DTanH Intrinsic,  Up: Table of Intrinsic Functions
  664.  
  665. DTime Intrinsic (subroutine)
  666. ............................
  667.  
  668.      CALL DTime(TARRAY, RESULT)
  669.  
  670. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  671.  
  672. RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
  673.  
  674. Intrinsic groups: `unix'.
  675.  
  676. Description:
  677.  
  678.    Initially, return the number of seconds of runtime since the start
  679. of the process's execution in RESULT, and the user and system
  680. components of this in `TARRAY(1)' and `TARRAY(2)' respectively.  The
  681. value of RESULT is equal to `TARRAY(1) + TARRAY(2)'.
  682.  
  683.    Subsequent invocations of `DTIME()' set values based on accumulations
  684. since the previous invocation.
  685.  
  686.    On some systems, the underlying timings are represented using types
  687. with sufficiently small limits that overflows (wraparounds) are
  688. possible, such as 32-bit types.  Therefore, the values returned by this
  689. intrinsic might be, or become, negative, or numerically less than
  690. previous values, during a single run of the compiled program.
  691.  
  692.    Some non-GNU implementations of Fortran provide this intrinsic as
  693. only a function, not as a subroutine.
  694.  
  695.    For information on other intrinsics with the same name: *Note DTime
  696. Intrinsic (function)::.
  697.  
  698. 
  699. File: g77.info,  Node: EOShift Intrinsic,  Next: Epsilon Intrinsic,  Prev: DTime Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  700.  
  701. EOShift Intrinsic
  702. .................
  703.  
  704.    This intrinsic is not yet implemented.  The name is, however,
  705. reserved as an intrinsic.  Use `EXTERNAL EOShift' to use this name for
  706. an external procedure.
  707.  
  708. 
  709. File: g77.info,  Node: Epsilon Intrinsic,  Next: ErF Intrinsic,  Prev: EOShift Intrinsic,  Up: Table of Intrinsic Functions
  710.  
  711. Epsilon Intrinsic
  712. .................
  713.  
  714.    This intrinsic is not yet implemented.  The name is, however,
  715. reserved as an intrinsic.  Use `EXTERNAL Epsilon' to use this name for
  716. an external procedure.
  717.  
  718. 
  719. File: g77.info,  Node: ErF Intrinsic,  Next: ErFC Intrinsic,  Prev: Epsilon Intrinsic,  Up: Table of Intrinsic Functions
  720.  
  721. ErF Intrinsic
  722. .............
  723.  
  724.      ErF(X)
  725.  
  726. ErF: `REAL' function, the `KIND=' value of the type being that of
  727. argument X.
  728.  
  729. X: `REAL'; scalar; INTENT(IN).
  730.  
  731. Intrinsic groups: `unix'.
  732.  
  733. Description:
  734.  
  735.    Returns the error function of X.  See `erf(3m)', which provides the
  736. implementation.
  737.  
  738. 
  739. File: g77.info,  Node: ErFC Intrinsic,  Next: ETime Intrinsic (subroutine),  Prev: ErF Intrinsic,  Up: Table of Intrinsic Functions
  740.  
  741. ErFC Intrinsic
  742. ..............
  743.  
  744.      ErFC(X)
  745.  
  746. ErFC: `REAL' function, the `KIND=' value of the type being that of
  747. argument X.
  748.  
  749. X: `REAL'; scalar; INTENT(IN).
  750.  
  751. Intrinsic groups: `unix'.
  752.  
  753. Description:
  754.  
  755.    Returns the complementary error function of X: `ERFC(R) = 1 -
  756. ERF(R)' (except that the result might be more accurate than explicitly
  757. evaluating that formulae would give).  See `erfc(3m)', which provides
  758. the implementation.
  759.  
  760. 
  761. File: g77.info,  Node: ETime Intrinsic (subroutine),  Next: ETime Intrinsic (function),  Prev: ErFC Intrinsic,  Up: Table of Intrinsic Functions
  762.  
  763. ETime Intrinsic (subroutine)
  764. ............................
  765.  
  766.      CALL ETime(TARRAY, RESULT)
  767.  
  768. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  769.  
  770. RESULT: `REAL(KIND=1)'; scalar; INTENT(OUT).
  771.  
  772. Intrinsic groups: `unix'.
  773.  
  774. Description:
  775.  
  776.    Return the number of seconds of runtime since the start of the
  777. process's execution in RESULT, and the user and system components of
  778. this in `TARRAY(1)' and `TARRAY(2)' respectively.  The value of RESULT
  779. is equal to `TARRAY(1) + TARRAY(2)'.
  780.  
  781.    On some systems, the underlying timings are represented using types
  782. with sufficiently small limits that overflows (wraparounds) are
  783. possible, such as 32-bit types.  Therefore, the values returned by this
  784. intrinsic might be, or become, negative, or numerically less than
  785. previous values, during a single run of the compiled program.
  786.  
  787.    Some non-GNU implementations of Fortran provide this intrinsic as
  788. only a function, not as a subroutine.
  789.  
  790.    For information on other intrinsics with the same name: *Note ETime
  791. Intrinsic (function)::.
  792.  
  793. 
  794. File: g77.info,  Node: ETime Intrinsic (function),  Next: Exit Intrinsic,  Prev: ETime Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  795.  
  796. ETime Intrinsic (function)
  797. ..........................
  798.  
  799.      ETime(TARRAY)
  800.  
  801. ETime: `REAL(KIND=1)' function.
  802.  
  803. TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
  804.  
  805. Intrinsic groups: `unix'.
  806.  
  807. Description:
  808.  
  809.    Return the number of seconds of runtime since the start of the
  810. process's execution as the function value, and the user and system
  811. components of this in `TARRAY(1)' and `TARRAY(2)' respectively.  The
  812. functions' value is equal to `TARRAY(1) + TARRAY(2)'.
  813.  
  814.    On some systems, the underlying timings are represented using types
  815. with sufficiently small limits that overflows (wraparounds) are
  816. possible, such as 32-bit types.  Therefore, the values returned by this
  817. intrinsic might be, or become, negative, or numerically less than
  818. previous values, during a single run of the compiled program.
  819.  
  820.    For information on other intrinsics with the same name: *Note ETime
  821. Intrinsic (subroutine)::.
  822.  
  823. 
  824. File: g77.info,  Node: Exit Intrinsic,  Next: Exp Intrinsic,  Prev: ETime Intrinsic (function),  Up: Table of Intrinsic Functions
  825.  
  826. Exit Intrinsic
  827. ..............
  828.  
  829.      CALL Exit(STATUS)
  830.  
  831. STATUS: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  832.  
  833. Intrinsic groups: `unix'.
  834.  
  835. Description:
  836.  
  837.    Exit the program with status STATUS after closing open Fortran I/O
  838. units and otherwise behaving as `exit(2)'.  If STATUS is omitted the
  839. canonical `success' value will be returned to the system.
  840.  
  841. 
  842. File: g77.info,  Node: Exp Intrinsic,  Next: Exponent Intrinsic,  Prev: Exit Intrinsic,  Up: Table of Intrinsic Functions
  843.  
  844. Exp Intrinsic
  845. .............
  846.  
  847.      Exp(X)
  848.  
  849. Exp: `REAL' or `COMPLEX' function, the exact type being that of
  850. argument X.
  851.  
  852. X: `REAL' or `COMPLEX'; scalar; INTENT(IN).
  853.  
  854. Intrinsic groups: (standard FORTRAN 77).
  855.  
  856. Description:
  857.  
  858.    Returns `E**X', where E is approximately 2.7182818.
  859.  
  860.    *Note Log Intrinsic::, for the inverse of this function.
  861.  
  862. 
  863. File: g77.info,  Node: Exponent Intrinsic,  Next: FDate Intrinsic (subroutine),  Prev: Exp Intrinsic,  Up: Table of Intrinsic Functions
  864.  
  865. Exponent Intrinsic
  866. ..................
  867.  
  868.    This intrinsic is not yet implemented.  The name is, however,
  869. reserved as an intrinsic.  Use `EXTERNAL Exponent' to use this name for
  870. an external procedure.
  871.  
  872. 
  873. File: g77.info,  Node: FDate Intrinsic (subroutine),  Next: FDate Intrinsic (function),  Prev: Exponent Intrinsic,  Up: Table of Intrinsic Functions
  874.  
  875. FDate Intrinsic (subroutine)
  876. ............................
  877.  
  878.      CALL FDate(DATE)
  879.  
  880. DATE: `CHARACTER'; scalar; INTENT(OUT).
  881.  
  882. Intrinsic groups: `unix'.
  883.  
  884. Description:
  885.  
  886.    Returns the current date (using the same format as `CTIME()') in
  887. DATE.
  888.  
  889.    Equivalent to:
  890.  
  891.      CALL CTIME(DATE, TIME8())
  892.  
  893.    Programs making use of this intrinsic might not be Year 10000 (Y10K)
  894. compliant.  For example, the date might appear, to such programs, to
  895. wrap around (change from a larger value to a smaller one) as of the
  896. Year 10000.
  897.  
  898.    *Note CTime Intrinsic (subroutine)::.
  899.  
  900.    Some non-GNU implementations of Fortran provide this intrinsic as
  901. only a function, not as a subroutine.
  902.  
  903.    For information on other intrinsics with the same name: *Note FDate
  904. Intrinsic (function)::.
  905.  
  906. 
  907. File: g77.info,  Node: FDate Intrinsic (function),  Next: FGet Intrinsic (subroutine),  Prev: FDate Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  908.  
  909. FDate Intrinsic (function)
  910. ..........................
  911.  
  912.      FDate()
  913.  
  914. FDate: `CHARACTER*(*)' function.
  915.  
  916. Intrinsic groups: `unix'.
  917.  
  918. Description:
  919.  
  920.    Returns the current date (using the same format as `CTIME()').
  921.  
  922.    Equivalent to:
  923.  
  924.      CTIME(TIME8())
  925.  
  926.    Programs making use of this intrinsic might not be Year 10000 (Y10K)
  927. compliant.  For example, the date might appear, to such programs, to
  928. wrap around (change from a larger value to a smaller one) as of the
  929. Year 10000.
  930.  
  931.    *Note CTime Intrinsic (function)::.
  932.  
  933.    For information on other intrinsics with the same name: *Note FDate
  934. Intrinsic (subroutine)::.
  935.  
  936. 
  937. File: g77.info,  Node: FGet Intrinsic (subroutine),  Next: FGetC Intrinsic (subroutine),  Prev: FDate Intrinsic (function),  Up: Table of Intrinsic Functions
  938.  
  939. FGet Intrinsic (subroutine)
  940. ...........................
  941.  
  942.      CALL FGet(C, STATUS)
  943.  
  944. C: `CHARACTER'; scalar; INTENT(OUT).
  945.  
  946. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  947.  
  948. Intrinsic groups: `unix'.
  949.  
  950. Description:
  951.  
  952.    Reads a single character into C in stream mode from unit 5
  953. (by-passing normal formatted output) using `getc(3)'.  Returns in
  954. STATUS 0 on success, -1 on end-of-file, and the error code from
  955. `ferror(3)' otherwise.
  956.  
  957.    Stream I/O should not be mixed with normal record-oriented
  958. (formatted or unformatted) I/O on the same unit; the results are
  959. unpredictable.
  960.  
  961.    For information on other intrinsics with the same name: *Note FGet
  962. Intrinsic (function)::.
  963.  
  964. 
  965. File: g77.info,  Node: FGetC Intrinsic (subroutine),  Next: Float Intrinsic,  Prev: FGet Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  966.  
  967. FGetC Intrinsic (subroutine)
  968. ............................
  969.  
  970.      CALL FGetC(UNIT, C, STATUS)
  971.  
  972. UNIT: `INTEGER'; scalar; INTENT(IN).
  973.  
  974. C: `CHARACTER'; scalar; INTENT(OUT).
  975.  
  976. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  977.  
  978. Intrinsic groups: `unix'.
  979.  
  980. Description:
  981.  
  982.    Reads a single character into C in stream mode from unit UNIT
  983. (by-passing normal formatted output) using `getc(3)'.  Returns in
  984. STATUS 0 on success, -1 on end-of-file, and the error code from
  985. `ferror(3)' otherwise.
  986.  
  987.    Stream I/O should not be mixed with normal record-oriented
  988. (formatted or unformatted) I/O on the same unit; the results are
  989. unpredictable.
  990.  
  991.    For information on other intrinsics with the same name: *Note FGetC
  992. Intrinsic (function)::.
  993.  
  994. 
  995. File: g77.info,  Node: Float Intrinsic,  Next: Floor Intrinsic,  Prev: FGetC Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  996.  
  997. Float Intrinsic
  998. ...............
  999.  
  1000.      Float(A)
  1001.  
  1002. Float: `REAL(KIND=1)' function.
  1003.  
  1004. A: `INTEGER'; scalar; INTENT(IN).
  1005.  
  1006. Intrinsic groups: (standard FORTRAN 77).
  1007.  
  1008. Description:
  1009.  
  1010.    Archaic form of `REAL()' that is specific to one type for A.  *Note
  1011. Real Intrinsic::.
  1012.  
  1013. 
  1014. File: g77.info,  Node: Floor Intrinsic,  Next: Flush Intrinsic,  Prev: Float Intrinsic,  Up: Table of Intrinsic Functions
  1015.  
  1016. Floor Intrinsic
  1017. ...............
  1018.  
  1019.    This intrinsic is not yet implemented.  The name is, however,
  1020. reserved as an intrinsic.  Use `EXTERNAL Floor' to use this name for an
  1021. external procedure.
  1022.  
  1023. 
  1024. File: g77.info,  Node: Flush Intrinsic,  Next: FNum Intrinsic,  Prev: Floor Intrinsic,  Up: Table of Intrinsic Functions
  1025.  
  1026. Flush Intrinsic
  1027. ...............
  1028.  
  1029.      CALL Flush(UNIT)
  1030.  
  1031. UNIT: `INTEGER'; OPTIONAL; scalar; INTENT(IN).
  1032.  
  1033. Intrinsic groups: `unix'.
  1034.  
  1035. Description:
  1036.  
  1037.    Flushes Fortran unit(s) currently open for output.  Without the
  1038. optional argument, all such units are flushed, otherwise just the unit
  1039. specified by UNIT.
  1040.  
  1041.    Some non-GNU implementations of Fortran provide this intrinsic as a
  1042. library procedure that might or might not support the (optional) UNIT
  1043. argument.
  1044.  
  1045. 
  1046. File: g77.info,  Node: FNum Intrinsic,  Next: FPut Intrinsic (subroutine),  Prev: Flush Intrinsic,  Up: Table of Intrinsic Functions
  1047.  
  1048. FNum Intrinsic
  1049. ..............
  1050.  
  1051.      FNum(UNIT)
  1052.  
  1053. FNum: `INTEGER(KIND=1)' function.
  1054.  
  1055. UNIT: `INTEGER'; scalar; INTENT(IN).
  1056.  
  1057. Intrinsic groups: `unix'.
  1058.  
  1059. Description:
  1060.  
  1061.    Returns the Unix file descriptor number corresponding to the open
  1062. Fortran I/O unit UNIT.  This could be passed to an interface to C I/O
  1063. routines.
  1064.  
  1065. 
  1066. File: g77.info,  Node: FPut Intrinsic (subroutine),  Next: FPutC Intrinsic (subroutine),  Prev: FNum Intrinsic,  Up: Table of Intrinsic Functions
  1067.  
  1068. FPut Intrinsic (subroutine)
  1069. ...........................
  1070.  
  1071.      CALL FPut(C, STATUS)
  1072.  
  1073. C: `CHARACTER'; scalar; INTENT(IN).
  1074.  
  1075. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1076.  
  1077. Intrinsic groups: `unix'.
  1078.  
  1079. Description:
  1080.  
  1081.    Writes the single character C in stream mode to unit 6 (by-passing
  1082. normal formatted output) using `putc(3)'.  Returns in STATUS 0 on
  1083. success, the error code from `ferror(3)' otherwise.
  1084.  
  1085.    Stream I/O should not be mixed with normal record-oriented
  1086. (formatted or unformatted) I/O on the same unit; the results are
  1087. unpredictable.
  1088.  
  1089.    For information on other intrinsics with the same name: *Note FPut
  1090. Intrinsic (function)::.
  1091.  
  1092. 
  1093. File: g77.info,  Node: FPutC Intrinsic (subroutine),  Next: Fraction Intrinsic,  Prev: FPut Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1094.  
  1095. FPutC Intrinsic (subroutine)
  1096. ............................
  1097.  
  1098.      CALL FPutC(UNIT, C, STATUS)
  1099.  
  1100. UNIT: `INTEGER'; scalar; INTENT(IN).
  1101.  
  1102. C: `CHARACTER'; scalar; INTENT(IN).
  1103.  
  1104. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1105.  
  1106. Intrinsic groups: `unix'.
  1107.  
  1108. Description:
  1109.  
  1110.    Writes the single character UNIT in stream mode to unit 6
  1111. (by-passing normal formatted output) using `putc(3)'.  Returns in C 0
  1112. on success, the error code from `ferror(3)' otherwise.
  1113.  
  1114.    Stream I/O should not be mixed with normal record-oriented
  1115. (formatted or unformatted) I/O on the same unit; the results are
  1116. unpredictable.
  1117.  
  1118.    For information on other intrinsics with the same name: *Note FPutC
  1119. Intrinsic (function)::.
  1120.  
  1121. 
  1122. File: g77.info,  Node: Fraction Intrinsic,  Next: FSeek Intrinsic,  Prev: FPutC Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1123.  
  1124. Fraction Intrinsic
  1125. ..................
  1126.  
  1127.    This intrinsic is not yet implemented.  The name is, however,
  1128. reserved as an intrinsic.  Use `EXTERNAL Fraction' to use this name for
  1129. an external procedure.
  1130.  
  1131. 
  1132. File: g77.info,  Node: FSeek Intrinsic,  Next: FStat Intrinsic (subroutine),  Prev: Fraction Intrinsic,  Up: Table of Intrinsic Functions
  1133.  
  1134. FSeek Intrinsic
  1135. ...............
  1136.  
  1137.      CALL FSeek(UNIT, OFFSET, WHENCE, ERRLAB)
  1138.  
  1139. UNIT: `INTEGER'; scalar; INTENT(IN).
  1140.  
  1141. OFFSET: `INTEGER'; scalar; INTENT(IN).
  1142.  
  1143. WHENCE: `INTEGER'; scalar; INTENT(IN).
  1144.  
  1145. ERRLAB: `*LABEL', where LABEL is the label of an executable statement;
  1146. OPTIONAL.
  1147.  
  1148. Intrinsic groups: `unix'.
  1149.  
  1150. Description:
  1151.  
  1152.    Attempts to move Fortran unit UNIT to the specified OFFSET: absolute
  1153. offset if WHENCE=0; relative to the current offset if WHENCE=1;
  1154. relative to the end of the file if WHENCE=2.  It branches to label
  1155. ERRLAB if UNIT is not open or if the call otherwise fails.
  1156.  
  1157. 
  1158. File: g77.info,  Node: FStat Intrinsic (subroutine),  Next: FStat Intrinsic (function),  Prev: FSeek Intrinsic,  Up: Table of Intrinsic Functions
  1159.  
  1160. FStat Intrinsic (subroutine)
  1161. ............................
  1162.  
  1163.      CALL FStat(UNIT, SARRAY, STATUS)
  1164.  
  1165. UNIT: `INTEGER'; scalar; INTENT(IN).
  1166.  
  1167. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1168.  
  1169. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1170.  
  1171. Intrinsic groups: `unix'.
  1172.  
  1173. Description:
  1174.  
  1175.    Obtains data about the file open on Fortran I/O unit UNIT and places
  1176. them in the array SARRAY.  The values in this array are extracted from
  1177. the `stat' structure as returned by `fstat(2)' q.v., as follows:
  1178.  
  1179.   1. Device ID
  1180.  
  1181.   2. Inode number
  1182.  
  1183.   3. File mode
  1184.  
  1185.   4. Number of links
  1186.  
  1187.   5. Owner's uid
  1188.  
  1189.   6. Owner's gid
  1190.  
  1191.   7. ID of device containing directory entry for file (0 if not
  1192.      available)
  1193.  
  1194.   8. File size (bytes)
  1195.  
  1196.   9. Last access time
  1197.  
  1198.  10. Last modification time
  1199.  
  1200.  11. Last file status change time
  1201.  
  1202.  12. Preferred I/O block size (-1 if not available)
  1203.  
  1204.  13. Number of blocks allocated (-1 if not available)
  1205.  
  1206.    Not all these elements are relevant on all systems.  If an element
  1207. is not relevant, it is returned as 0.
  1208.  
  1209.    If the STATUS argument is supplied, it contains 0 on success or a
  1210. non-zero error code upon return.
  1211.  
  1212.    Some non-GNU implementations of Fortran provide this intrinsic as
  1213. only a function, not as a subroutine, or do not support the (optional)
  1214. STATUS argument.
  1215.  
  1216.    For information on other intrinsics with the same name: *Note FStat
  1217. Intrinsic (function)::.
  1218.  
  1219. 
  1220. File: g77.info,  Node: FStat Intrinsic (function),  Next: FTell Intrinsic (subroutine),  Prev: FStat Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1221.  
  1222. FStat Intrinsic (function)
  1223. ..........................
  1224.  
  1225.      FStat(UNIT, SARRAY)
  1226.  
  1227. FStat: `INTEGER(KIND=1)' function.
  1228.  
  1229. UNIT: `INTEGER'; scalar; INTENT(IN).
  1230.  
  1231. SARRAY: `INTEGER(KIND=1)'; DIMENSION(13); INTENT(OUT).
  1232.  
  1233. Intrinsic groups: `unix'.
  1234.  
  1235. Description:
  1236.  
  1237.    Obtains data about the file open on Fortran I/O unit UNIT and places
  1238. them in the array SARRAY.  The values in this array are extracted from
  1239. the `stat' structure as returned by `fstat(2)' q.v., as follows:
  1240.  
  1241.   1. Device ID
  1242.  
  1243.   2. Inode number
  1244.  
  1245.   3. File mode
  1246.  
  1247.   4. Number of links
  1248.  
  1249.   5. Owner's uid
  1250.  
  1251.   6. Owner's gid
  1252.  
  1253.   7. ID of device containing directory entry for file (0 if not
  1254.      available)
  1255.  
  1256.   8. File size (bytes)
  1257.  
  1258.   9. Last access time
  1259.  
  1260.  10. Last modification time
  1261.  
  1262.  11. Last file status change time
  1263.  
  1264.  12. Preferred I/O block size (-1 if not available)
  1265.  
  1266.  13. Number of blocks allocated (-1 if not available)
  1267.  
  1268.    Not all these elements are relevant on all systems.  If an element
  1269. is not relevant, it is returned as 0.
  1270.  
  1271.    Returns 0 on success or a non-zero error code.
  1272.  
  1273.    For information on other intrinsics with the same name: *Note FStat
  1274. Intrinsic (subroutine)::.
  1275.  
  1276. 
  1277. File: g77.info,  Node: FTell Intrinsic (subroutine),  Next: FTell Intrinsic (function),  Prev: FStat Intrinsic (function),  Up: Table of Intrinsic Functions
  1278.  
  1279. FTell Intrinsic (subroutine)
  1280. ............................
  1281.  
  1282.      CALL FTell(UNIT, OFFSET)
  1283.  
  1284. UNIT: `INTEGER'; scalar; INTENT(IN).
  1285.  
  1286. OFFSET: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
  1287.  
  1288. Intrinsic groups: `unix'.
  1289.  
  1290. Description:
  1291.  
  1292.    Sets OFFSET to the current offset of Fortran unit UNIT (or to -1 if
  1293. UNIT is not open).
  1294.  
  1295.    Some non-GNU implementations of Fortran provide this intrinsic as
  1296. only a function, not as a subroutine.
  1297.  
  1298.    For information on other intrinsics with the same name: *Note FTell
  1299. Intrinsic (function)::.
  1300.  
  1301. 
  1302. File: g77.info,  Node: FTell Intrinsic (function),  Next: GError Intrinsic,  Prev: FTell Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1303.  
  1304. FTell Intrinsic (function)
  1305. ..........................
  1306.  
  1307.      FTell(UNIT)
  1308.  
  1309. FTell: `INTEGER(KIND=1)' function.
  1310.  
  1311. UNIT: `INTEGER'; scalar; INTENT(IN).
  1312.  
  1313. Intrinsic groups: `unix'.
  1314.  
  1315. Description:
  1316.  
  1317.    Returns the current offset of Fortran unit UNIT (or -1 if UNIT is
  1318. not open).
  1319.  
  1320.    For information on other intrinsics with the same name: *Note FTell
  1321. Intrinsic (subroutine)::.
  1322.  
  1323. 
  1324. File: g77.info,  Node: GError Intrinsic,  Next: GetArg Intrinsic,  Prev: FTell Intrinsic (function),  Up: Table of Intrinsic Functions
  1325.  
  1326. GError Intrinsic
  1327. ................
  1328.  
  1329.      CALL GError(MESSAGE)
  1330.  
  1331. MESSAGE: `CHARACTER'; scalar; INTENT(OUT).
  1332.  
  1333. Intrinsic groups: `unix'.
  1334.  
  1335. Description:
  1336.  
  1337.    Returns the system error message corresponding to the last system
  1338. error (C `errno').
  1339.  
  1340. 
  1341. File: g77.info,  Node: GetArg Intrinsic,  Next: GetCWD Intrinsic (subroutine),  Prev: GError Intrinsic,  Up: Table of Intrinsic Functions
  1342.  
  1343. GetArg Intrinsic
  1344. ................
  1345.  
  1346.      CALL GetArg(POS, VALUE)
  1347.  
  1348. POS: `INTEGER'; scalar; INTENT(IN).
  1349.  
  1350. VALUE: `CHARACTER'; scalar; INTENT(OUT).
  1351.  
  1352. Intrinsic groups: `unix'.
  1353.  
  1354. Description:
  1355.  
  1356.    Sets VALUE to the POS-th command-line argument (or to all blanks if
  1357. there are fewer than VALUE command-line arguments); `CALL GETARG(0,
  1358. VALUE)' sets VALUE to the name of the program (on systems that support
  1359. this feature).
  1360.  
  1361.    *Note IArgC Intrinsic::, for information on how to get the number of
  1362. arguments.
  1363.  
  1364. 
  1365. File: g77.info,  Node: GetCWD Intrinsic (subroutine),  Next: GetCWD Intrinsic (function),  Prev: GetArg Intrinsic,  Up: Table of Intrinsic Functions
  1366.  
  1367. GetCWD Intrinsic (subroutine)
  1368. .............................
  1369.  
  1370.      CALL GetCWD(NAME, STATUS)
  1371.  
  1372. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1373.  
  1374. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1375.  
  1376. Intrinsic groups: `unix'.
  1377.  
  1378. Description:
  1379.  
  1380.    Places the current working directory in NAME.  If the STATUS
  1381. argument is supplied, it contains 0 success or a non-zero error code
  1382. upon return (`ENOSYS' if the system does not provide `getcwd(3)' or
  1383. `getwd(3)').
  1384.  
  1385.    Some non-GNU implementations of Fortran provide this intrinsic as
  1386. only a function, not as a subroutine, or do not support the (optional)
  1387. STATUS argument.
  1388.  
  1389.    For information on other intrinsics with the same name: *Note GetCWD
  1390. Intrinsic (function)::.
  1391.  
  1392. 
  1393. File: g77.info,  Node: GetCWD Intrinsic (function),  Next: GetEnv Intrinsic,  Prev: GetCWD Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1394.  
  1395. GetCWD Intrinsic (function)
  1396. ...........................
  1397.  
  1398.      GetCWD(NAME)
  1399.  
  1400. GetCWD: `INTEGER(KIND=1)' function.
  1401.  
  1402. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1403.  
  1404. Intrinsic groups: `unix'.
  1405.  
  1406. Description:
  1407.  
  1408.    Places the current working directory in NAME.  Returns 0 on success,
  1409. otherwise a non-zero error code (`ENOSYS' if the system does not
  1410. provide `getcwd(3)' or `getwd(3)').
  1411.  
  1412.    For information on other intrinsics with the same name: *Note GetCWD
  1413. Intrinsic (subroutine)::.
  1414.  
  1415. 
  1416. File: g77.info,  Node: GetEnv Intrinsic,  Next: GetGId Intrinsic,  Prev: GetCWD Intrinsic (function),  Up: Table of Intrinsic Functions
  1417.  
  1418. GetEnv Intrinsic
  1419. ................
  1420.  
  1421.      CALL GetEnv(NAME, VALUE)
  1422.  
  1423. NAME: `CHARACTER'; scalar; INTENT(IN).
  1424.  
  1425. VALUE: `CHARACTER'; scalar; INTENT(OUT).
  1426.  
  1427. Intrinsic groups: `unix'.
  1428.  
  1429. Description:
  1430.  
  1431.    Sets VALUE to the value of environment variable given by the value
  1432. of NAME (`$name' in shell terms) or to blanks if `$name' has not been
  1433. set.  A null character (`CHAR(0)') marks the end of the name in
  1434. NAME--otherwise, trailing blanks in NAME are ignored.
  1435.  
  1436. 
  1437. File: g77.info,  Node: GetGId Intrinsic,  Next: GetLog Intrinsic,  Prev: GetEnv Intrinsic,  Up: Table of Intrinsic Functions
  1438.  
  1439. GetGId Intrinsic
  1440. ................
  1441.  
  1442.      GetGId()
  1443.  
  1444. GetGId: `INTEGER(KIND=1)' function.
  1445.  
  1446. Intrinsic groups: `unix'.
  1447.  
  1448. Description:
  1449.  
  1450.    Returns the group id for the current process.
  1451.  
  1452. 
  1453. File: g77.info,  Node: GetLog Intrinsic,  Next: GetPId Intrinsic,  Prev: GetGId Intrinsic,  Up: Table of Intrinsic Functions
  1454.  
  1455. GetLog Intrinsic
  1456. ................
  1457.  
  1458.      CALL GetLog(LOGIN)
  1459.  
  1460. LOGIN: `CHARACTER'; scalar; INTENT(OUT).
  1461.  
  1462. Intrinsic groups: `unix'.
  1463.  
  1464. Description:
  1465.  
  1466.    Returns the login name for the process in LOGIN.
  1467.  
  1468.    *Caution:* On some systems, the `getlogin(3)' function, which this
  1469. intrinsic calls at run time, is either not implemented or returns a
  1470. null pointer.  In the latter case, this intrinsic returns blanks in
  1471. LOGIN.
  1472.  
  1473. 
  1474. File: g77.info,  Node: GetPId Intrinsic,  Next: GetUId Intrinsic,  Prev: GetLog Intrinsic,  Up: Table of Intrinsic Functions
  1475.  
  1476. GetPId Intrinsic
  1477. ................
  1478.  
  1479.      GetPId()
  1480.  
  1481. GetPId: `INTEGER(KIND=1)' function.
  1482.  
  1483. Intrinsic groups: `unix'.
  1484.  
  1485. Description:
  1486.  
  1487.    Returns the process id for the current process.
  1488.  
  1489. 
  1490. File: g77.info,  Node: GetUId Intrinsic,  Next: GMTime Intrinsic,  Prev: GetPId Intrinsic,  Up: Table of Intrinsic Functions
  1491.  
  1492. GetUId Intrinsic
  1493. ................
  1494.  
  1495.      GetUId()
  1496.  
  1497. GetUId: `INTEGER(KIND=1)' function.
  1498.  
  1499. Intrinsic groups: `unix'.
  1500.  
  1501. Description:
  1502.  
  1503.    Returns the user id for the current process.
  1504.  
  1505. 
  1506. File: g77.info,  Node: GMTime Intrinsic,  Next: HostNm Intrinsic (subroutine),  Prev: GetUId Intrinsic,  Up: Table of Intrinsic Functions
  1507.  
  1508. GMTime Intrinsic
  1509. ................
  1510.  
  1511.      CALL GMTime(STIME, TARRAY)
  1512.  
  1513. STIME: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1514.  
  1515. TARRAY: `INTEGER(KIND=1)'; DIMENSION(9); INTENT(OUT).
  1516.  
  1517. Intrinsic groups: `unix'.
  1518.  
  1519. Description:
  1520.  
  1521.    Given a system time value STIME, fills TARRAY with values extracted
  1522. from it appropriate to the GMT time zone using `gmtime(3)'.
  1523.  
  1524.    The array elements are as follows:
  1525.  
  1526.   1. Seconds after the minute, range 0-59 or 0-61 to allow for leap
  1527.      seconds
  1528.  
  1529.   2. Minutes after the hour, range 0-59
  1530.  
  1531.   3. Hours past midnight, range 0-23
  1532.  
  1533.   4. Day of month, range 0-31
  1534.  
  1535.   5. Number of months since January, range 0-12
  1536.  
  1537.   6. Years since 1900
  1538.  
  1539.   7. Number of days since Sunday, range 0-6
  1540.  
  1541.   8. Days since January 1
  1542.  
  1543.   9. Daylight savings indicator: positive if daylight savings is in
  1544.      effect, zero if not, and negative if the information isn't
  1545.      available.
  1546.  
  1547. 
  1548. File: g77.info,  Node: HostNm Intrinsic (subroutine),  Next: HostNm Intrinsic (function),  Prev: GMTime Intrinsic,  Up: Table of Intrinsic Functions
  1549.  
  1550. HostNm Intrinsic (subroutine)
  1551. .............................
  1552.  
  1553.      CALL HostNm(NAME, STATUS)
  1554.  
  1555. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1556.  
  1557. STATUS: `INTEGER(KIND=1)'; OPTIONAL; scalar; INTENT(OUT).
  1558.  
  1559. Intrinsic groups: `unix'.
  1560.  
  1561. Description:
  1562.  
  1563.    Fills NAME with the system's host name returned by `gethostname(2)'.
  1564. If the STATUS argument is supplied, it contains 0 on success or a
  1565. non-zero error code upon return (`ENOSYS' if the system does not
  1566. provide `gethostname(2)').
  1567.  
  1568.    Some non-GNU implementations of Fortran provide this intrinsic as
  1569. only a function, not as a subroutine, or do not support the (optional)
  1570. STATUS argument.
  1571.  
  1572.    On some systems (specifically SCO) it might be necessary to link the
  1573. "socket" library if you call this routine.  Typically this means adding
  1574. `-lg2c -lsocket -lm' to the `g77' command line when linking the program.
  1575.  
  1576.    For information on other intrinsics with the same name: *Note HostNm
  1577. Intrinsic (function)::.
  1578.  
  1579. 
  1580. File: g77.info,  Node: HostNm Intrinsic (function),  Next: Huge Intrinsic,  Prev: HostNm Intrinsic (subroutine),  Up: Table of Intrinsic Functions
  1581.  
  1582. HostNm Intrinsic (function)
  1583. ...........................
  1584.  
  1585.      HostNm(NAME)
  1586.  
  1587. HostNm: `INTEGER(KIND=1)' function.
  1588.  
  1589. NAME: `CHARACTER'; scalar; INTENT(OUT).
  1590.  
  1591. Intrinsic groups: `unix'.
  1592.  
  1593. Description:
  1594.  
  1595.    Fills NAME with the system's host name returned by `gethostname(2)',
  1596. returning 0 on success or a non-zero error code (`ENOSYS' if the system
  1597. does not provide `gethostname(2)').
  1598.  
  1599.    On some systems (specifically SCO) it might be necessary to link the
  1600. "socket" library if you call this routine.  Typically this means adding
  1601. `-lg2c -lsocket -lm' to the `g77' command line when linking the program.
  1602.  
  1603.    For information on other intrinsics with the same name: *Note HostNm
  1604. Intrinsic (subroutine)::.
  1605.  
  1606. 
  1607. File: g77.info,  Node: Huge Intrinsic,  Next: IAbs Intrinsic,  Prev: HostNm Intrinsic (function),  Up: Table of Intrinsic Functions
  1608.  
  1609. Huge Intrinsic
  1610. ..............
  1611.  
  1612.    This intrinsic is not yet implemented.  The name is, however,
  1613. reserved as an intrinsic.  Use `EXTERNAL Huge' to use this name for an
  1614. external procedure.
  1615.  
  1616. 
  1617. File: g77.info,  Node: IAbs Intrinsic,  Next: IAChar Intrinsic,  Prev: Huge Intrinsic,  Up: Table of Intrinsic Functions
  1618.  
  1619. IAbs Intrinsic
  1620. ..............
  1621.  
  1622.      IAbs(A)
  1623.  
  1624. IAbs: `INTEGER(KIND=1)' function.
  1625.  
  1626. A: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1627.  
  1628. Intrinsic groups: (standard FORTRAN 77).
  1629.  
  1630. Description:
  1631.  
  1632.    Archaic form of `ABS()' that is specific to one type for A.  *Note
  1633. Abs Intrinsic::.
  1634.  
  1635. 
  1636. File: g77.info,  Node: IAChar Intrinsic,  Next: IAnd Intrinsic,  Prev: IAbs Intrinsic,  Up: Table of Intrinsic Functions
  1637.  
  1638. IAChar Intrinsic
  1639. ................
  1640.  
  1641.      IAChar(C)
  1642.  
  1643. IAChar: `INTEGER(KIND=1)' function.
  1644.  
  1645. C: `CHARACTER'; scalar; INTENT(IN).
  1646.  
  1647. Intrinsic groups: `f2c', `f90'.
  1648.  
  1649. Description:
  1650.  
  1651.    Returns the code for the ASCII character in the first character
  1652. position of C.
  1653.  
  1654.    *Note AChar Intrinsic::, for the inverse of this function.
  1655.  
  1656.    *Note IChar Intrinsic::, for the function corresponding to the
  1657. system's native character set.
  1658.  
  1659. 
  1660. File: g77.info,  Node: IAnd Intrinsic,  Next: IArgC Intrinsic,  Prev: IAChar Intrinsic,  Up: Table of Intrinsic Functions
  1661.  
  1662. IAnd Intrinsic
  1663. ..............
  1664.  
  1665.      IAnd(I, J)
  1666.  
  1667. IAnd: `INTEGER' function, the exact type being the result of
  1668. cross-promoting the types of all the arguments.
  1669.  
  1670. I: `INTEGER'; scalar; INTENT(IN).
  1671.  
  1672. J: `INTEGER'; scalar; INTENT(IN).
  1673.  
  1674. Intrinsic groups: `mil', `f90', `vxt'.
  1675.  
  1676. Description:
  1677.  
  1678.    Returns value resulting from boolean AND of pair of bits in each of
  1679. I and J.
  1680.  
  1681. 
  1682. File: g77.info,  Node: IArgC Intrinsic,  Next: IBClr Intrinsic,  Prev: IAnd Intrinsic,  Up: Table of Intrinsic Functions
  1683.  
  1684. IArgC Intrinsic
  1685. ...............
  1686.  
  1687.      IArgC()
  1688.  
  1689. IArgC: `INTEGER(KIND=1)' function.
  1690.  
  1691. Intrinsic groups: `unix'.
  1692.  
  1693. Description:
  1694.  
  1695.    Returns the number of command-line arguments.
  1696.  
  1697.    This count does not include the specification of the program name
  1698. itself.
  1699.  
  1700. 
  1701. File: g77.info,  Node: IBClr Intrinsic,  Next: IBits Intrinsic,  Prev: IArgC Intrinsic,  Up: Table of Intrinsic Functions
  1702.  
  1703. IBClr Intrinsic
  1704. ...............
  1705.  
  1706.      IBClr(I, POS)
  1707.  
  1708. IBClr: `INTEGER' function, the `KIND=' value of the type being that of
  1709. argument I.
  1710.  
  1711. I: `INTEGER'; scalar; INTENT(IN).
  1712.  
  1713. POS: `INTEGER'; scalar; INTENT(IN).
  1714.  
  1715. Intrinsic groups: `mil', `f90', `vxt'.
  1716.  
  1717. Description:
  1718.  
  1719.    Returns the value of I with bit POS cleared (set to zero).  *Note
  1720. BTest Intrinsic::, for information on bit positions.
  1721.  
  1722. 
  1723. File: g77.info,  Node: IBits Intrinsic,  Next: IBSet Intrinsic,  Prev: IBClr Intrinsic,  Up: Table of Intrinsic Functions
  1724.  
  1725. IBits Intrinsic
  1726. ...............
  1727.  
  1728.      IBits(I, POS, LEN)
  1729.  
  1730. IBits: `INTEGER' function, the `KIND=' value of the type being that of
  1731. argument I.
  1732.  
  1733. I: `INTEGER'; scalar; INTENT(IN).
  1734.  
  1735. POS: `INTEGER'; scalar; INTENT(IN).
  1736.  
  1737. LEN: `INTEGER'; scalar; INTENT(IN).
  1738.  
  1739. Intrinsic groups: `mil', `f90', `vxt'.
  1740.  
  1741. Description:
  1742.  
  1743.    Extracts a subfield of length LEN from I, starting from bit position
  1744. POS and extending left for LEN bits.  The result is right-justified and
  1745. the remaining bits are zeroed.  The value of `POS+LEN' must be less
  1746. than or equal to the value `BIT_SIZE(I)'.  *Note Bit_Size Intrinsic::.
  1747.  
  1748. 
  1749. File: g77.info,  Node: IBSet Intrinsic,  Next: IChar Intrinsic,  Prev: IBits Intrinsic,  Up: Table of Intrinsic Functions
  1750.  
  1751. IBSet Intrinsic
  1752. ...............
  1753.  
  1754.      IBSet(I, POS)
  1755.  
  1756. IBSet: `INTEGER' function, the `KIND=' value of the type being that of
  1757. argument I.
  1758.  
  1759. I: `INTEGER'; scalar; INTENT(IN).
  1760.  
  1761. POS: `INTEGER'; scalar; INTENT(IN).
  1762.  
  1763. Intrinsic groups: `mil', `f90', `vxt'.
  1764.  
  1765. Description:
  1766.  
  1767.    Returns the value of I with bit POS set (to one).  *Note BTest
  1768. Intrinsic::, for information on bit positions.
  1769.  
  1770. 
  1771. File: g77.info,  Node: IChar Intrinsic,  Next: IDate Intrinsic (UNIX),  Prev: IBSet Intrinsic,  Up: Table of Intrinsic Functions
  1772.  
  1773. IChar Intrinsic
  1774. ...............
  1775.  
  1776.      IChar(C)
  1777.  
  1778. IChar: `INTEGER(KIND=1)' function.
  1779.  
  1780. C: `CHARACTER'; scalar; INTENT(IN).
  1781.  
  1782. Intrinsic groups: (standard FORTRAN 77).
  1783.  
  1784. Description:
  1785.  
  1786.    Returns the code for the character in the first character position
  1787. of C.
  1788.  
  1789.    Because the system's native character set is used, the
  1790. correspondence between character and their codes is not necessarily the
  1791. same between GNU Fortran implementations.
  1792.  
  1793.    Note that no intrinsic exists to convert a printable character
  1794. string to a numerical value.  For example, there is no intrinsic that,
  1795. given the `CHARACTER' value `'154'', returns an `INTEGER' or `REAL'
  1796. value with the value `154'.
  1797.  
  1798.    Instead, you can use internal-file I/O to do this kind of conversion.
  1799. For example:
  1800.  
  1801.      INTEGER VALUE
  1802.      CHARACTER*10 STRING
  1803.      STRING = '154'
  1804.      READ (STRING, '(I10)'), VALUE
  1805.      PRINT *, VALUE
  1806.      END
  1807.  
  1808.    The above program, when run, prints:
  1809.  
  1810.       154
  1811.  
  1812.    *Note Char Intrinsic::, for the inverse of the `ICHAR' function.
  1813.  
  1814.    *Note IAChar Intrinsic::, for the function corresponding to the
  1815. ASCII character set.
  1816.  
  1817. 
  1818. File: g77.info,  Node: IDate Intrinsic (UNIX),  Next: IDiM Intrinsic,  Prev: IChar Intrinsic,  Up: Table of Intrinsic Functions
  1819.  
  1820. IDate Intrinsic (UNIX)
  1821. ......................
  1822.  
  1823.      CALL IDate(TARRAY)
  1824.  
  1825. TARRAY: `INTEGER(KIND=1)'; DIMENSION(3); INTENT(OUT).
  1826.  
  1827. Intrinsic groups: `unix'.
  1828.  
  1829. Description:
  1830.  
  1831.    Fills TARRAY with the numerical values at the current local time of
  1832. day, month (in the range 1-12), and year in elements 1, 2, and 3,
  1833. respectively.  The year has four significant digits.
  1834.  
  1835.    Programs making use of this intrinsic might not be Year 10000 (Y10K)
  1836. compliant.  For example, the date might appear, to such programs, to
  1837. wrap around (change from a larger value to a smaller one) as of the
  1838. Year 10000.
  1839.  
  1840.    For information on other intrinsics with the same name: *Note IDate
  1841. Intrinsic (VXT)::.
  1842.  
  1843. 
  1844. File: g77.info,  Node: IDiM Intrinsic,  Next: IDInt Intrinsic,  Prev: IDate Intrinsic (UNIX),  Up: Table of Intrinsic Functions
  1845.  
  1846. IDiM Intrinsic
  1847. ..............
  1848.  
  1849.      IDiM(X, Y)
  1850.  
  1851. IDiM: `INTEGER(KIND=1)' function.
  1852.  
  1853. X: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1854.  
  1855. Y: `INTEGER(KIND=1)'; scalar; INTENT(IN).
  1856.  
  1857. Intrinsic groups: (standard FORTRAN 77).
  1858.  
  1859. Description:
  1860.  
  1861.    Archaic form of `DIM()' that is specific to one type for X and Y.
  1862. *Note DiM Intrinsic::.
  1863.  
  1864. 
  1865. File: g77.info,  Node: IDInt Intrinsic,  Next: IDNInt Intrinsic,  Prev: IDiM Intrinsic,  Up: Table of Intrinsic Functions
  1866.  
  1867. IDInt Intrinsic
  1868. ...............
  1869.  
  1870.      IDInt(A)
  1871.  
  1872. IDInt: `INTEGER(KIND=1)' function.
  1873.  
  1874. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  1875.  
  1876. Intrinsic groups: (standard FORTRAN 77).
  1877.  
  1878. Description:
  1879.  
  1880.    Archaic form of `INT()' that is specific to one type for A.  *Note
  1881. Int Intrinsic::.
  1882.  
  1883. 
  1884. File: g77.info,  Node: IDNInt Intrinsic,  Next: IEOr Intrinsic,  Prev: IDInt Intrinsic,  Up: Table of Intrinsic Functions
  1885.  
  1886. IDNInt Intrinsic
  1887. ................
  1888.  
  1889.      IDNInt(A)
  1890.  
  1891. IDNInt: `INTEGER(KIND=1)' function.
  1892.  
  1893. A: `REAL(KIND=2)'; scalar; INTENT(IN).
  1894.  
  1895. Intrinsic groups: (standard FORTRAN 77).
  1896.  
  1897. Description:
  1898.  
  1899.    Archaic form of `NINT()' that is specific to one type for A.  *Note
  1900. NInt Intrinsic::.
  1901.  
  1902. 
  1903. File: g77.info,  Node: IEOr Intrinsic,  Next: IErrNo Intrinsic,  Prev: IDNInt Intrinsic,  Up: Table of Intrinsic Functions
  1904.  
  1905. IEOr Intrinsic
  1906. ..............
  1907.  
  1908.      IEOr(I, J)
  1909.  
  1910. IEOr: `INTEGER' function, the exact type being the result of
  1911. cross-promoting the types of all the arguments.
  1912.  
  1913. I: `INTEGER'; scalar; INTENT(IN).
  1914.  
  1915. J: `INTEGER'; scalar; INTENT(IN).
  1916.  
  1917. Intrinsic groups: `mil', `f90', `vxt'.
  1918.  
  1919. Description:
  1920.  
  1921.    Returns value resulting from boolean exclusive-OR of pair of bits in
  1922. each of I and J.
  1923.  
  1924. 
  1925. File: g77.info,  Node: IErrNo Intrinsic,  Next: IFix Intrinsic,  Prev: IEOr Intrinsic,  Up: Table of Intrinsic Functions
  1926.  
  1927. IErrNo Intrinsic
  1928. ................
  1929.  
  1930.      IErrNo()
  1931.  
  1932. IErrNo: `INTEGER(KIND=1)' function.
  1933.  
  1934. Intrinsic groups: `unix'.
  1935.  
  1936. Description:
  1937.  
  1938.    Returns the last system error number (corresponding to the C
  1939. `errno').
  1940.  
  1941. 
  1942. File: g77.info,  Node: IFix Intrinsic,  Next: Imag Intrinsic,  Prev: IErrNo Intrinsic,  Up: Table of Intrinsic Functions
  1943.  
  1944. IFix Intrinsic
  1945. ..............
  1946.  
  1947.      IFix(A)
  1948.  
  1949. IFix: `INTEGER(KIND=1)' function.
  1950.  
  1951. A: `REAL(KIND=1)'; scalar; INTENT(IN).
  1952.  
  1953. Intrinsic groups: (standard FORTRAN 77).
  1954.  
  1955. Description:
  1956.  
  1957.    Archaic form of `INT()' that is specific to one type for A.  *Note
  1958. Int Intrinsic::.
  1959.  
  1960. 
  1961. File: g77.info,  Node: Imag Intrinsic,  Next: ImagPart Intrinsic,  Prev: IFix Intrinsic,  Up: Table of Intrinsic Functions
  1962.  
  1963. Imag Intrinsic
  1964. ..............
  1965.  
  1966.      Imag(Z)
  1967.  
  1968. Imag: `REAL' function, the `KIND=' value of the type being that of
  1969. argument Z.
  1970.  
  1971. Z: `COMPLEX'; scalar; INTENT(IN).
  1972.  
  1973. Intrinsic groups: `f2c'.
  1974.  
  1975. Description:
  1976.  
  1977.    The imaginary part of Z is returned, without conversion.
  1978.  
  1979.    *Note:* The way to do this in standard Fortran 90 is `AIMAG(Z)'.
  1980. However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
  1981. something different for some compilers that are not true Fortran 90
  1982. compilers but offer some extensions standardized by Fortran 90 (such as
  1983. the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
  1984.  
  1985.    The advantage of `IMAG()' is that, while not necessarily more or
  1986. less portable than `AIMAG()', it is more likely to cause a compiler
  1987. that doesn't support it to produce a diagnostic than generate incorrect
  1988. code.
  1989.  
  1990.    *Note REAL() and AIMAG() of Complex::, for more information.
  1991.  
  1992. 
  1993. File: g77.info,  Node: ImagPart Intrinsic,  Next: Index Intrinsic,  Prev: Imag Intrinsic,  Up: Table of Intrinsic Functions
  1994.  
  1995. ImagPart Intrinsic
  1996. ..................
  1997.  
  1998.      ImagPart(Z)
  1999.  
  2000. ImagPart: `REAL' function, the `KIND=' value of the type being that of
  2001. argument Z.
  2002.  
  2003. Z: `COMPLEX'; scalar; INTENT(IN).
  2004.  
  2005. Intrinsic groups: `gnu'.
  2006.  
  2007. Description:
  2008.  
  2009.    The imaginary part of Z is returned, without conversion.
  2010.  
  2011.    *Note:* The way to do this in standard Fortran 90 is `AIMAG(Z)'.
  2012. However, when, for example, Z is `DOUBLE COMPLEX', `AIMAG(Z)' means
  2013. something different for some compilers that are not true Fortran 90
  2014. compilers but offer some extensions standardized by Fortran 90 (such as
  2015. the `DOUBLE COMPLEX' type, also known as `COMPLEX(KIND=2)').
  2016.  
  2017.    The advantage of `IMAGPART()' is that, while not necessarily more or
  2018. less portable than `AIMAG()', it is more likely to cause a compiler
  2019. that doesn't support it to produce a diagnostic than generate incorrect
  2020. code.
  2021.  
  2022.    *Note REAL() and AIMAG() of Complex::, for more information.
  2023.  
  2024.